home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
DATAUTIL
/
DBASEUT1.LZH
/
DWTTUTO.PRG
< prev
next >
Wrap
Text File
|
1985-09-12
|
5KB
|
109 lines
* dwttuto.prg *
* main = dwt
do while .t.
* display screen *
@ 01,00 say '▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒'
@ 02,00 say '▒▒ ╔═══════════════╗ ▒▒ ╔══════════════════════════════════════════════════╗ ▒▒'
@ 03,00 say '▒▒ ║ TUTORIAL ║ ▒▒ ║ ║ ▒▒'
@ 04,00 say '▒▒ ╟───────────────╢ ▒▒ ║ ║ ▒▒'
@ 05,00 say '▒▒ ║ Help ║ ▒▒ ║ ║ ▒▒'
@ 06,00 say '▒▒ ║ Introduction ║ ▒▒ ║ ┌───────────────────────────┐ ║ ▒▒'
@ 07,00 say '▒▒ ║ Tutor ║ ▒▒ ║ │ dBASE │ ║ ▒▒'
@ 08,00 say '▒▒ ║ ║ ▒▒ ║ │ ┌───────────────────────────┐ ║ ▒▒'
@ 09,00 say '▒▒ ║ ║ ▒▒ ║ └─│ Windowing │ ║ ▒▒'
@ 10,00 say '▒▒ ║ ║ ▒▒ ║ │ ┌───────────────────────────┐ ║ ▒▒'
@ 11,00 say '▒▒ ║ ║ ▒▒ ║ └─│ Technology │ ║ ▒▒'
@ 12,00 say '▒▒ ║ ║ ▒▒ ║ │ ┌───────────────────────────┐ ║ ▒▒'
@ 13,00 say '▒▒ ║ ║ ▒▒ ║ └─│ Tutorial │ ║ ▒▒'
@ 14,00 say '▒▒ ║ <CR> to quit ║ ▒▒ ║ │ │ ║ ▒▒'
@ 15,00 say '▒▒ ╚═══════════════╝ ▒▒ ║ └───────────────────────────┘ ║ ▒▒'
@ 16,00 say '▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ║ ║ ▒▒'
@ 17,00 say '▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ║ ║ ▒▒'
@ 18,00 say '▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ║ ║ ▒▒'
@ 19,00 say '▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ║ ║ ▒▒'
@ 20,00 say '▒▒ ╔═══════════════╗ ▒▒ ║ ║ ▒▒'
@ 21,00 say '▒▒ ║ ║ ▒▒ ║ ║ ▒▒'
@ 22,00 say '▒▒ ╚═══════════════╝ ▒▒ ╚══════════════════════════════════════════════════╝ ▒▒'
@ 23,00 say '▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒'
* prompt for action *
store ' ' to action
@ 21,05 say 'Selection?'get action picture 'A'
read
clear gets
@ 21,04 say ' '
store UPPER(action) to action
* go for case *
do case
* quit and repaint background *
case action='Q' .or. action=' '
return
* display help screen *
case action='H'
@ 21,04 say ' Stand by... '
@ 03,10 say "╔═════════════════════════════════════════════════════════╗"
@ 04,10 say "║ The d/WT Tutor will show you how to modify this system ║"
@ 05,10 say "║ to create other applications with windowing features. ║"
@ 06,10 say "║ ║"
@ 07,10 say "║ To operate the tutor, simply press 'T' at the tutorial ║"
@ 08,10 say "║ menu. Each page of the tutor will be displayed, one af- ║"
@ 09,10 say "║ ter another. The pages are numbered and subtitled for ║"
@ 10,10 say "║ convenience. ║"
@ 11,10 say "║ ║"
@ 12,10 say "║ To advance one page, press 'N' for NEXT PAGE. To review ║"
@ 13,10 say "║ a previous page, press 'P'. To exit from the tutor, ║"
@ 14,10 say "║ press <CR>, or press 'Q'. The tutor will return to this ║"
@ 15,10 say "║ menu when it is completed. ║"
@ 16,10 say "║ ║"
@ 17,10 say "╚═════════════════════════════════════════════════════════╝"
* prompt to continue *
store ' ' to continue
@ 21,05 say 'Any key...' get continue
read
clear gets
@ 21,04 say ' Stand by... '
* introduction *
case action='I'
@ 05,00 say '▒▒ ║ Next Page ║ ▒▒'
@ 06,00 say '▒▒ ║ Previous Page ║ ▒▒'
@ 07,00 say '▒▒ ║ ║ ▒▒'
@ 08,00 say '▒▒ ║ ║ ▒▒'
@ 09,00 say '▒▒ ║ ║ ▒▒'
@ 10,00 say '▒▒ ║ ║ ▒▒'
@ 11,00 say '▒▒ ║ ║ ▒▒'
@ 12,00 say '▒▒ ║ ║ ▒▒'
@ 13,00 say '▒▒ ║ ║ ▒▒'
@ 14,00 say '▒▒ ║ <CR> to quit ║ ▒▒'
do dwtintro
* repaint screen *
@ 21,04 say ' Stand by... '
* tutor *
case action='T'
@ 05,00 say '▒▒ ║ Next Page ║ ▒▒'
@ 06,00 say '▒▒ ║ Previous Page ║ ▒▒'
@ 07,00 say '▒▒ ║ ║ ▒▒'
@ 08,00 say '▒▒ ║ ║ ▒▒'
@ 09,00 say '▒▒ ║ ║ ▒▒'
@ 10,00 say '▒▒ ║ ║ ▒▒'
@ 11,00 say '▒▒ ║ ║ ▒▒'
@ 12,00 say '▒▒ ║ ║ ▒▒'
@ 13,00 say '▒▒ ║ ║ ▒▒'
@ 14,00 say '▒▒ ║ <CR> to quit ║ ▒▒'
do dwttutor
* repaint screen *
@ 21,04 say ' Stand by... '
endcase
enddo action
